home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / lang / sofa.lha / sofa / smalleiffel / lib_show / animal / animal.e next >
Text File  |  2000-03-25  |  738b  |  43 lines
  1. deferred class ANIMAL
  2.  
  3. feature {ANY}
  4.  
  5.    cri: STRING is
  6.       deferred
  7.       end;
  8.  
  9.    crier2 is
  10.       do
  11.          std_output.put_string(cri);
  12.       end;
  13.  
  14.    crier is
  15.       deferred
  16.       end;
  17.  
  18.    reproduction(autre: ANIMAL): ANIMAL is
  19.       require
  20.          autre /= Void
  21.       do
  22.          Result := autre;
  23.       end;
  24.  
  25.    reproduction_avec_quadrupede(autre: QUADRUPEDE): ANIMAL is
  26.       require
  27.          autre /= Void
  28.       do
  29.          Result := autre;
  30.       end;
  31.  
  32.    felicitations(autre: ANIMAL) is
  33.       do
  34.          Current.crier2;
  35.          std_output.put_string(" + ");
  36.          autre.crier;
  37.          std_output.put_string(" = ");
  38.          Current.reproduction(autre).crier;
  39.          std_output.put_new_line;
  40.       end;
  41.  
  42. end -- ANIMAL
  43.